plot_basic <- ggplot(aes(x = lohn_prozent, y = afd_prozent, label=name), data = wahl_lohn) +
geom_point(shape = 1) +
geom_smooth(method = "lm", se = T) +
labs(
x = "Anteil Mindestlohnbezieher",
y = "AfD Stimmen in %",
title = "AfD Stimmen und Mindestlohnbezieher",
subtitle = "Kreisebene",
caption = "Daten: WSI, Bundeswahlleiter"
) +
theme_minimal() #+ #scientific theme
#coord_cartesian(xlim = c(0, 0.5), ylim = c(0, 0.35)) + #start at 0,0
# for Sonneberg (16072)
# geom_point(
# data = wahl_lohn %>% filter("kreis" == "16072"),
# color = "red",
# ) +
# geom_text(
# data = wahl_lohn %>% filter("kreis" == "16072"),
# label = "SB",
# vjust = 1.3,
# hjust = 0,
# color = "red"
# )
ggsave("images/plot_basic.png", plot_basic, width = 10, height = 7)